# Load Necessary Packages
library(ggplot2)
library(dplyr)
library(tidyr)
library(grid)
library(gridExtra)

# Load Files
setwd("/users/josephphillips/Dropbox/COVID-19/Data/FC Data Repository")
us22 <- read.csv("W2-W2 US BCF.csv",header=T,sep=",")
us23 <- read.csv("W2-W3 US BCF.csv",header=T,sep=",")
us24 <- read.csv("W2-W4 US BCF.csv",header=T,sep=",")
us33 <- read.csv("W3-W3 US BCF.csv",header=T,sep=",")
us34 <- read.csv("W3-W4 US BCF.csv",header=T,sep=",")
uk2 <- read.csv("W2-W2 UK BCF.csv",header=T,sep=",")
uk3 <- read.csv("W3 UK BCF.csv",header=T,sep=",")
canada1 <- read.csv("Canada 1 BCF.csv",header=T,sep=",")
canada2 <- read.csv("Canada 2 BCF.csv",header=T,sep=",")

# By Party
uk2$party <- ifelse(uk2$left==1,"Left",ifelse(uk2$right==1,"Right","None"))
uk3$party <- ifelse(uk3$left==1,"Left",ifelse(uk3$right==1,"Right","None"))
canada1$party <- ifelse(canada1$left==1,"Left",ifelse(canada1$right==1,"Right","None"))
canada2$party <- ifelse(canada2$left==1,"Left",ifelse(canada2$right==1,"Right","None"))
us22_byparty <- us22 %>% group_by(pid3) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_byparty <- us23 %>% group_by(pid3) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_byparty <- us24 %>% group_by(pid3) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_byparty <- us33 %>% group_by(pid3) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_byparty <- us34 %>% group_by(pid3) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_byparty <- uk2 %>% group_by(party) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_byparty <- uk3 %>% group_by(party) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_byparty <- uk3 %>% group_by(party) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))
canada1_byparty <- canada1 %>% group_by(party) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
canada2_byparty <- canada2 %>% group_by(party) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))

# By Leader Approval
us22$approval_dichotomous <- ifelse(us22$approve_trmp>=2,1,0)
us23$approval_dichotomous <- ifelse(us23$approve_trmp>=2,1,0)
us24$approval_dichotomous <- ifelse(us24$approve_trmp>=2,1,0)
us33$approval_dichotomous <- ifelse(us33$approve_trmp>=2,1,0)
us34$approval_dichotomous <- ifelse(us34$approve_trmp>=2,1,0)
uk2$approval_dichotomous <- ifelse(uk2$approve_Boris>=2,1,0)
uk3$approval_dichotomous <- ifelse(uk3$approve_Boris>=2,1,0)
canada1$approval_dichotomous <- ifelse(canada1$approve_trudeau>=2,1,0)
canada2$approval_dichotomous <- ifelse(canada2$approve_trudeau>=2,1,0)

us22_byapp <- us22 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_byapp <- us23 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_byapp <- us24 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_byapp <- us33 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_byapp <- us34 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_byapp <- uk2 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_byapp <- uk3 %>% group_by(approval_dichotomous) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_byapp <- uk3 %>% group_by(approval_dichotomous) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))
canada1_byapp <- canada1 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
canada2_byapp <- canada2 %>% group_by(approval_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))

# By Leader FT
us22$leaderft_dichotomous <- ifelse(us22$therm_trump>=50,1,0)
us23$leaderft_dichotomous <- ifelse(us23$therm_trump>=50,1,0)
us24$leaderft_dichotomous <- ifelse(us24$therm_trump>=50,1,0)
us33$leaderft_dichotomous <- ifelse(us33$therm_trump>=50,1,0)
us34$leaderft_dichotomous <- ifelse(us34$therm_trump>=50,1,0)
uk2$leaderft_dichotomous <- ifelse(uk2$therm_boris>=50,1,0)
uk3$leaderft_dichotomous <- ifelse(uk3$therm_boris>=50,1,0)
canada1$leaderft_dichotomous <- ifelse(canada1$trudeau_therm>=50,1,0)
canada2$leaderft_dichotomous <- ifelse(canada2$trudeau_therm>=50,1,0)

us22_byft <- us22 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_byft <- us23 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_byft <- us24 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_byft <- us33 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_byft <- us34 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_byft <- uk2 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_byft <- uk3 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_byft <- uk3 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))
canada1_byft <- canada1 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
canada2_byft <- canada2 %>% group_by(leaderft_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))

# By Health Trust
us22$ht_dichotomous <- ifelse(us22$health_trust>=2,1,0)
us23$ht_dichotomous <- ifelse(us23$health_trust>=2,1,0)
us24$ht_dichotomous <- ifelse(us24$health_trust>=2,1,0)
us33$ht_dichotomous <- ifelse(us33$health_trust>=2,1,0)
us34$ht_dichotomous <- ifelse(us34$health_trust>=2,1,0)
uk2$ht_dichotomous <- ifelse(uk2$trust_healthgov>=2,1,0)
uk3$ht_dichotomous <- ifelse(uk3$trust_healthgov>=2,1,0)
canada1$ht_dichotomous <- ifelse(canada1$trust_healthgov>=2,1,0)
canada2$ht_dichotomous <- ifelse(canada2$trust_healthgov>=2,1,0)

us22_byht <- us22 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_byht <- us23 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_byht <- us24 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_byht <- us33 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_byht <- us34 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_byht <- uk2 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_byht <- uk3 %>% group_by(ht_dichotomous) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_byht <- uk3 %>% group_by(ht_dichotomous) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))
canada1_byht <- canada1 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
canada2_byht <- canada2 %>% group_by(ht_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))

# By Conspiracy Predispositions
us22$conspiracy_dichotomous <- ifelse(us22$conspiracy>=2,1,0)
us23$conspiracy_dichotomous <- ifelse(us23$conspiracy>=2,1,0)
us24$conspiracy_dichotomous <- ifelse(us24$conspiracy>=2,1,0)
us33$conspiracy_dichotomous <- ifelse(us33$conspiracy>=2,1,0)
us34$conspiracy_dichotomous <- ifelse(us34$conspiracy>=2,1,0)
uk2$conspiracy_general <- (5-as.numeric(as.factor(uk2$conspiracy_1))) + (5-as.numeric(as.factor(uk2$conspiracy_2))) + (5-as.numeric(as.factor(uk2$conspiracy_3))) + (5-as.numeric(as.factor(uk2$conspiracy_4)))
uk3$conspiracy_general <- (5-as.numeric(as.factor(uk3$conspiracy_1))) + (5-as.numeric(as.factor(uk3$conspiracy_2))) + (5-as.numeric(as.factor(uk3$conspiracy_3))) + (5-as.numeric(as.factor(uk3$conspiracy_4)))
uk2$conspiracy_dichotomous <- ifelse(uk2$conspiracy_general>=2,1,0)
uk3$conspiracy_dichotomous <- ifelse(uk3$conspiracy_general>=2,1,0)
canada1$conspiracy_dichotomous <- ifelse(canada1$conspiracy>=2,1,0)
canada2$conspiracy_dichotomous <- ifelse(canada2$conspiracy>=2,1,0)

us22_bycon <- us22 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_bycon <- us23 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_bycon <- us24 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_bycon <- us33 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_bycon <- us34 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_bycon <- uk2 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_bycon <- uk3 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_bycon <- uk3 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))
canada1_bycon <- canada1 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
canada2_bycon <- canada2 %>% group_by(conspiracy_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))

# By Media Trust
us22$media_trust_dichotomous <- ifelse(us22$media_trust>=1.5,1,0)
us23$media_trust_dichotomous <- ifelse(us23$media_trust>=1.5,1,0)
us24$media_trust_dichotomous <- ifelse(us24$media_trust>=1.5,1,0)
us33$media_trust_dichotomous <- ifelse(us33$media_trust>=1.5,1,0)
us34$media_trust_dichotomous <- ifelse(us34$media_trust>=1.5,1,0)
uk2$media_trust_dichotomous <- ifelse(as.numeric(as.factor(uk2$media_trust_1))>=2.5,1,0)
uk3$media_trust_dichotomous <- ifelse(as.numeric(as.factor(uk3$media_trust_1))>=2.5,1,0)
canada1$media_trust_dichotomous <- ifelse(canada1$total_media_trust>=1.5,1,0)
canada2$media_trust_dichotomous <- ifelse(canada2$total_media_trust>=1.5,1,0)

us22_bymed <- us22 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_bymed <- us23 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_bymed <- us24 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_bymed <- us33 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_bymed <- us34 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_bymed <- uk2 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_bymed <- uk3 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_bymed <- uk3 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))
canada1_bymed <- canada1 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
canada2_bymed <- canada2 %>% group_by(media_trust_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))

# By Lagged DV
us22$lag_dichotomous <- ifelse(us22$target_false>=2.5,1,0)
us23$lag_dichotomous <- ifelse(us23$target_false>=2.5,1,0)
us24$lag_dichotomous <- ifelse(us24$target_false>=2.5,1,0)
us33$lag_dichotomous <- ifelse(us33$target_false>=2.5,1,0)
us34$lag_dichotomous <- ifelse(us34$target_false>=2.5,1,0)
uk2$lag_dichotomous <- ifelse(uk2$targeted_false>=2.5,1,0)
uk3$lag_dichotomous <- ifelse(uk3$targeted_false>=2.5,1,0)

us22_bylag <- us22 %>% group_by(lag_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us23_bylag <- us23 %>% group_by(lag_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us24_bylag <- us24 %>% group_by(lag_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us33_bylag <- us33 %>% group_by(lag_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
us34_bylag <- us34 %>% group_by(lag_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk22_bylag <- uk2 %>% group_by(lag_dichotomous) %>% summarise(m=median(individual_effects), lci=quantile(individual_effects,.025), uci=quantile(individual_effects,.975))
uk23_bylag <- uk3 %>% group_by(lag_dichotomous) %>% summarise(m=median(W2_individual_effects), lci=quantile(W2_individual_effects,.025), uci=quantile(W2_individual_effects,.975))
uk33_bylag <- uk3 %>% group_by(lag_dichotomous) %>% summarise(m=median(W3_individual_effects), lci=quantile(W3_individual_effects,.025), uci=quantile(W3_individual_effects,.975))

# Plots
## US W2-W2
p.us22byparty <- ggplot(us22_byparty,aes(x=pid3,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,0.5,1),labels=c("Dems","Inds","Reps"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us22byapp <- ggplot(us22_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us22byft <- ggplot(us22_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us22byht <- ggplot(us22_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us22bycon <- ggplot(us22_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us22bymed <- ggplot(us22_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us22bylag <- ggplot(us22_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## US W2-W3
p.us23byparty <- ggplot(us23_byparty,aes(x=pid3,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,0.5,1),labels=c("Dems","Inds","Reps"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us23byapp <- ggplot(us23_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us23byft <- ggplot(us23_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us23byht <- ggplot(us23_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us23bycon <- ggplot(us23_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us23bymed <- ggplot(us23_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us23bylag <- ggplot(us23_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## US W2-W4
p.us24byparty <- ggplot(us24_byparty,aes(x=pid3,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,0.5,1),labels=c("Dems","Inds","Reps"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us24byapp <- ggplot(us24_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us24byft <- ggplot(us24_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us24byht <- ggplot(us24_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us24bycon <- ggplot(us24_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us24bymed <- ggplot(us24_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us24bylag <- ggplot(us24_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 2-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## US W3-W3
p.us33byparty <- ggplot(us33_byparty,aes(x=pid3,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,0.5,1),labels=c("Dems","Inds","Reps"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us33byapp <- ggplot(us33_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us33byft <- ggplot(us33_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us33byht <- ggplot(us33_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us33bycon <- ggplot(us33_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us33bymed <- ggplot(us33_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us33bylag <- ggplot(us33_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## US W3-W4
p.us34byparty <- ggplot(us34_byparty,aes(x=pid3,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,0.5,1),labels=c("Dems","Inds","Reps"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us34byapp <- ggplot(us34_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us34byft <- ggplot(us34_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us34byht <- ggplot(us34_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us34bycon <- ggplot(us34_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us34bymed <- ggplot(us34_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.us34bylag <- ggplot(us34_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("US Wave 3-Wave 4") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## UK W2-W2
p.uk22byparty <- ggplot(uk22_byparty,aes(x=party,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + xlab("") + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk22byapp <- ggplot(uk22_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk22byft <- ggplot(uk22_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk22byht <- ggplot(uk22_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk22bycon <- ggplot(uk22_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk22bymed <- ggplot(uk22_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk22bylag <- ggplot(uk22_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## UK W2-W3
p.uk23byparty <- ggplot(uk23_byparty,aes(x=party,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + xlab("") + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk23byapp <- ggplot(uk23_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk23byft <- ggplot(uk23_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk23byht <- ggplot(uk23_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk23bycon <- ggplot(uk23_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk23bymed <- ggplot(uk23_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk23bylag <- ggplot(uk23_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 2-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## UK W3-W3
p.uk33byparty <- ggplot(uk33_byparty,aes(x=party,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + xlab("") + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk33byapp <- ggplot(uk33_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk33byft <- ggplot(uk33_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk33byht <- ggplot(uk33_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk33bycon <- ggplot(uk33_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk33bymed <- ggplot(uk33_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.uk33bylag <- ggplot(uk33_bylag,aes(x=lag_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("GB Wave 3-Wave 3") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## Canada 1
p.canada1byparty <- ggplot(canada1_byparty,aes(x=party,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + xlab("") + ggtitle("Canada 1") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada1byapp <- ggplot(canada1_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 1") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada1byft <- ggplot(canada1_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 1") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada1byht <- ggplot(canada1_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 1") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada1bycon <- ggplot(canada1_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 1") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada1bymed <- ggplot(canada1_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 1") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
## Canada 2
p.canada2byparty <- ggplot(canada2_byparty,aes(x=party,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + xlab("") + ggtitle("Canada 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada2byapp <- ggplot(canada2_byapp,aes(x=approval_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada2byft <- ggplot(canada2_byft,aes(x=leaderft_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada2byht <- ggplot(canada2_byht,aes(x=ht_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada2bycon <- ggplot(canada2_bycon,aes(x=conspiracy_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
p.canada2bymed <- ggplot(canada2_bymed,aes(x=media_trust_dichotomous,y=m)) + geom_point() + geom_errorbar(aes(ymin=lci,ymax=uci),size=.4,width=0) + theme_classic() + coord_flip() + scale_x_continuous(name="",breaks=c(0,1),labels=c("Low","High"),limits=c(-0.2,1.2)) + ggtitle("Canada 2") + ylab("") + geom_hline(yintercept=0,linetype="dashed") + theme(plot.title = element_text(hjust = 0.5)) + ylim(-.458, .054)
